home *** CD-ROM | disk | FTP | other *** search
/ Windows 6-Pak - Disc 4 / Windows 6-Pak (InfoMagic) (Disc 4) (1999).ISO / 3D-Graphics-Editors / lsystem3.exe / L System 3 / _setup.1 / FLOWER1.LS < prev    next >
Text File  |  1995-01-20  |  969b  |  28 lines
  1. #╔═════════════════╤═══════════════════════════════╗
  2. #║    Flower1.ls   │    (c) C.J. van der Mark      ║  
  3. #╟─────────────────┴───────────────────────────────╢
  4. #║      Questions about Lparser files to:          ║
  5. #║        Internet  cvdmark@xs4all.nl              ║
  6. #║           Fido      2:283/203.11                ║
  7. #║           PCG       9:526/464.3                 ║
  8. #╚═════════════════════════════════════════════════╝
  9. 11                                  
  10. 20                                           
  11. 10                                           
  12. q                                      
  13. q=&(30)p^(30)p^(10)p
  14. p=[t(-0.2)!Ft(-0.2)!Ft(-0.2)!FFFo]
  15. o=>y>(60)y>(60)y>(60)y>(60)y>(60)>y
  16. a=[&(10)s]a
  17. y=[a&(125)w]
  18. w=Z[d][h]'^(30)cw
  19. d=[+d{.].x.}
  20. h=[^(5)-h{.].x.}
  21. x=^(5)ggx
  22. s=[c(5)^(60)!'Ft(0.6)ZZt(0.6)?(10)ZZ]
  23. F='(1.3)F'(.77)
  24. f='(1.3)f'(.77)
  25. #g='(1.3)f'(.77)  # uncomment to get weird leafs
  26. ~=_               # uncomment to remove random efx
  27. @
  28.